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-- BFS.Mesa Edited by Sandman on May 12, 1978 8:60 AM 

DIRECTORY 
AltoDefs: FROM "altodefs" USING [CharsPerPage, PageNumber. PageSize], 
AltoFileDefs: FROM "altofiledefs" USING [ 

CFA. CFP, eofDA, FA, fillinDA, FP. LD. SN, vOA. vDC], 
BFSDefs: FROM "bfsdefs". 
DiskDefs: FROM "diskdefs" USING [ 

CBptr, CBZptr, CleanupCBqueue, DDC, DiskCheckError, OiskRequest. 

DoDiskCommand, FID, GetCB, Initial izeCBstorage, ICBZ, nCB, nSectors, 

RealDA, RetryableDiskError, RetryCount, UnrecoverabloDiskError, 

VirtualDA], 
DiskKDDefs: FROM "diskkddefs" USING [ 

AssignDiskPage, NewSN, ReleaseDiskPage] , 
MiscDefs: FROM "miscdefs" USING [DAYTIME, SetBlock, Zero], 
SegmentDefs: FROM "segmentdef s" USING [ 

DataSegmentAddress , DataSegmentHandle, DefaultBase, DeleteDataSegment, 

NewDataSegment], 
StringDefs: FROM "stringdefs" USING [MesaToBcplString]; 

DEFINITIONS FROM AUoDefs, AltoFileDefs, DiskDefs; 

BFS: PROGRAM 

IMPORTS DiskDefs, DiskKDDefs, MiscDefs, SegmentDefs, StringDefs 
EXPORTS BFSDefs » BEGIN 

-- These should be POINTER TO ARRAY OF . . . 
CAvec: TYPE » DESCRIPTOR FOR ARRAY OF POINTER; 
DAvec: TYPE = DESCRIPTOR FOR ARRAY OF vDA; 

ActOnPages: PUBLIC PROCEDURE [argiPOINTER TO update DiskRequest] 
RETURNS [pagetPageNumber, bytes rCARDINAL] » 
BEGIN OPEN arg. DiskDefs; a: vDC; ddc: DDC; 
i: PageNumber; cb, nextcb: CBptr; 
cbzone: ARRAY [0..1CBZ) OF UNSPECIFIED; 
zone: CBZptr = @cbzone[0]; 
CAs: CAvec « DESCRIPTOR[ca, lastPage+1]; 
DAs: DAvec = DESCRIPTOR[da, lastPage+2]; 
InitializeCBstorage[zone,nCB,firstPage, clear]; 
zone. info ^ da; zone. cleanup ^ cleanup; 
BEGIN ENABLE RetryableDiskError -> RETRY; 
cb ^ GetCB[zone. clear 1 ANY -> ERROR]; 
FOR i <- zone.currentPage, i+1 UNTIL i«lastPage+l DO 
BEGIN -- inner compound to skip DoNothing pages 
a ♦- IF i«lastPage THEN lastAction ELSE action; 
IF a - DoNothing THEN GOTO SkipThisPage; 
IF DAs[i] = eofDA THEN EXIT; 
IF signalCheckError AND zone.errorCount ■ RetryCount/2 

THEN SIGNAL DiskCheckError[ i]; 
nextcb <- GetCB[zone, clear] ; 
cb.labelAddress ♦- IF DAs[i + ll « fillinDA 
THEN LOOPHOLE[@nextcb. header. diskAddress] 
ELSE ©nextcb. label ; 
ddc <- DDC [ 

cb,IF fixedCA THEN ca ELSE CAs[i] .DAs[i] , i ,f p .FALSE .a] ; 
DoDiskCommand[@ddc]; 
cb <- nextcb; 
EXITS 

SkipThisPage -> NULL; 
END; 
ENDLOOP; 
CleanupCBqueue[zone]; 
END; -- of enable block 
RETURN[i-l.zone. cur rent Bytes] 
END; 

GetNextDA: PUBLIC PROCEDURE [cb:CBptr] - 
BEGIN 

pn: PageNumber « cb.page; 

DAs: DAvec « DESCRIPTOR[cb . zone. info, pn+2] ; 
IF DAs[pn+l] « fillinDA THEN 

DAs[pn+l] ^ VirtualDA[cb. labelAddress.next]; 
IF DAs[pn-l] « fillinDA THEN 

DAs[pn-l] ♦- VirtualDA[cb. labelAddress .prev]; 
RETURN 
END; 
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-- Currently DiskRequest. action is not used by WritePages (WriteD is assumed). 
-- Note also that lastAction is used only if lastPage isn't being rewritten. 

WritePages: PUBLIC PROCEDURE [arg:POINTER TO extend DiskRequest] 
RETURNS [page:PageNumber. bytes:CARDINAL] ■ BEGIN 
aop: update DiskRequest; 
f irstNewPage: PageNumber; 
local: extend DiskRequest ^ argt; 
DAs: DAvec ■ DESCRIPTOR[arg .da, arg.l astPage+2]; 
BEGIN OPEN local; 

IF DAs[firstPage] » fillinDA THEN firstNewPage ^ firstPage 
ELSE BEGIN 

aop ♦- DiskRequest [ 

ca, da, firstPage, lastPage, fp, fixedCA, WriteD, 
lastAction, signalCheckError, update[GetNextDA]]; 

[page, bytes] ^ ActOnPages[0aop]; 

IF (firstPage <- page) » lastPage 

AND (lastAction # WriteD 

OR bytes - lastBytes) THEN RETURN; 

firstNewPage ^ firstPage+1; 

END; 
IF firstNewPage <- lastPage THEN 

BEGIN aop. da *- da; 

aop. firstPage <~ firstNewPage; 

aop. lastPage <- lastPage; 

AssignPages[@aop]; 

END; 
[page, bytes] <- RewritePages[@local]; 
RETURN 
END; END; 

-- Note that only da, firstPage, and lastPage are valid on entry. 

AssignPages: PUBLIC PROCEDURE [arg:POINTER TO update DiskRequest] ■ 
BEGIN OPEN SegmentDefs, arg; i: PageNumber; 
DAs: DAvec « DESCRIPTOR[da, 1 astPage+2]; 
sink: DataSegmentHandle » NewDataSegment[Def aul tBase,!]; 
argt ♦- DiskRequest [ 

DataSegmentAddress[sink], , , , NIL, TRUE ,ReadLD, 
ReadLD,FALSE,update[CheckFreePage]]; 
UNTIL firstPage > lastPage DO 

ENABLE UNWIND => Del eteDataSegment[sink] ; 
FOR i IN [firstPage. .lastPage] DO 

DAs[i] ♦- DiskKDDefs.AssignDiskPage[DAs[i-l]]; 
ENDLOOP; 
i <- firstPage; 

[] ♦- ActOnPag0s[arg I UnrecoverableDiskError--[cb]-- »> 
BEGIN -- skip bad spots and press on 
firstPage ^ cb.page; 
DAs[firstPage] <- fillinDA; 
firstPage <- firstPage+1; 
RETRY 
END]; 
firstPage <- i; 
FOR i IN [firstPage. .lastPage] DO 

IF (DAs[firstPage] <- DAs[i]) ff fillinDA 

THEN firstPage ♦- firstPage+1; 
ENDLOOP; 
ENDLOOP; 
Del eteDataSegment[ sink]; 
RETURN 
END; 

FreePageFID: FID « FID[-1.SN[1, 1, 1, 17777B, -1]]; 

CheckFreePage: PUBLIC PROCEDURE[cb:CBptr] - 
BEGIN 

DAs: POINTER TO ARRAY [0..1) OF vDA - cb . zone . info; 
IF cb.labelAddress.filelD # FreePageFID 

THEN DAst[cb.page] ^ fillinDA; 
RETURN 
END; 
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-- Note that action and lastAction are not used (WriteLD is assumed), 

RewritePages: PUBLIC PROCEDURE [arg:POINTER TO extend DiskRequest] 
RETURNS [PageNumber, CARDINAL] ■ 
BEGIN OPEN arg; i: PageNumber; 
cbzone: ARRAY [0..1CBZ) OF UNSPECIFIED; 
zone: CBZptr ■ @cbzone[0]; cb: CBptr; 
CAs: CAvec - DESCRIPTORCca, 1 astPage+1] ; 
DAs: DAvec « DESCRIPTOR[da, 1 astPage+2] ; 
ddc: DDC ^ DDC[ ,ca, . ,fp, FALSE. WriteLD] ; 
Initial i zeCBs tor age[zone,nCB,firstPage, clear] ; 
BEGIN ENABLE RetryableDiskError -> RETRY; 

FOR i ♦- zone.currentPage, i+1 UNTIL i«1astPage+l DO 

cb ♦- GetCB[zone, clear]; 

IF (i " lastPage AND lastBytes ff CharsPerPage) 

OR DAs[i + l] " fillinDA THEN DAs[i+l] ♦- eofDA; 

cb. label .next *- RealDA[DAs[i+l]]; 

cb. label .prev *- RealDA[DAs[i-l]]; 

cb. label .bytes ♦- 

IF i « lastPage THEN lastBytes ELSE CharsPerPage; 

ddc.cb <r cb; ddc. da <- DAs[i]; ddc. page ^ i; 

IF -fixedCA THEN ddc.ca ^ CAsCi]; 

DoDiskCommand[0ddc]; 

ENDLOOP; 
CI eanupCB queue [zone]; 
END; 
RETURNClastPage, lastBytes] 
END; 

jump: CARDINAL - 10*nSectors; 

CreatePages: PUBLIC PROCEDURE [ 
ca:POINTER, cfa:POINTER TO CFA. 
lastPage:PageNumber, lastBytes:CARDINAL] - 
BEGIN 

da: vDA ^ cfa.fa.da; 
arg: extend DiskRequest; 
DAs: ARRAY [-L.jump] OF vDA; 
page: PageNumber ♦- cfa.fa.page; 
DO -- until lastPage is written 

MiscDefs. SetBlock[@DAs[-l], fillinDA, jump+2]; DAs[0] ♦- da; 

arg <- DiskRequest [ 

ca,@DAs[-page],page,MIN[lastPage,page+{Jump-l)], 
@cf a. f p, TRUE. WriteD.WriteD, FALSE, extend[ lastBytes]]; 

[] ♦- WritePages[@arg]; 

da ♦- DAs[arg.lastPage-page]; 

page ^ arg. lastPage; 

IF page « lastPage THEN EXIT; 

ENDLOOP; 
cfa.fa *- FA[da, lastPage. lastBytes]; 
RETURN 
END; 

DeletePages: PUBLIC PROCEDURE [ 

ca:POINTER. fp:POINTER TO FP, da:vDA, page:PageNumber] ■ 

BEGIN 

arg: update DiskRequest; 

lastPage, i: PageNumber; 

DAs: ARRAY [-L.jump] OF vDA; 

UNTIL da«eofDA DO 

MiscDefs.SetBlock[0DAs[-l].fillinDA, jump+2]; 

DAs[0] <- da; 

arg ♦- DiskRequest [ 

ca,0DAs[-page],page,page+( jump-1) .fp.TRUE. 
ReadD.ReadD, FALSE, update[GetNextDA]]; 
lastPage ^ ActOnPages[@arg].page; 
MiscDefs . Zero[ca,PageSize] ; 
arg.fp <- LOOPHOLE[0]; 
arg. lastPage ^ lastPage; 
arg. action <- arg. lastAction ♦- WriteLD; 
[] ^ ActOnPages[@arg]; 
FOR i IN [0. .lastPage-page] DO 

DiskKDDefs.ReleaseDiskPage[DAs[i]]; 
ENDLOOP; 
da ♦- DAs[lastPage+l-page]; 
page ^ lastPage+1; 
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ENDLOOP; 
RETURN 
END; 

CreateFile: PUBLIC PROCEDURE [nam0:STRING, fp, clirFP:POINTER TO FP] 
BEGIN OPEN SegmentDefs; 

DAs: ARRAY[-1..2] OF vDA <- [eof DA.f ill inDA.f i 11 inDA.eofDA] ; 
buf: DataSegmentHandle » NewDataSegment[Def auUBase.l]; 
Id: POINTER TO LD » DataSegmentAddress[buf ] ; 
arg: extend DiskRequest *- DiskRequest [ 

1d,@DAs[0],0,l,fp, TRUE, WriteD.WriteD, FALSE, extend[0]]; 
BEGIN ENABLE UNWIND »> DeleteDataSegmentCbuf ] ; 

MiscDefs.Zero[1d,PageSize]; 

Id. created ^ MiscD0fs.DAYTIME[]; 

StringDefs.MesaToBcp1String[nanie,LOOPHOLE[01d.nam0]]; 

Id.propBegin ^ @1d .props[0]-1d; 

Id.propLength ^ LENGTH[1d. props]; 

IF dirFP ^ NIL THEN MakeCFP[01d . dirFP.dirFP] ; 

fpt ^ FP[DiskKDDefs.NewSN[],eofDA]; 

[] ^ WritePag0s[@arg]; 

END; 
fp.leaderDA <- DAs[0]; 
DeleteDataSegmentCbuf]; 
RETURN 
END; 

MakeFP: PUBLIC PROCEDURE [ 

fp:POINTER TO FP, cfp:POINTER TO CFP] ■ 

BEGIN 

fpt ir FP[cfp. serial ,cfp.1eaderDA]; 

RETURN 

END; 

MakeCFP: PUBLIC PROCEDURE [ 

cfptPOINTER TO CFP, fpiPOINTER TO FP] ■ 

BEGIN 

cfpt 4- CFP[fp. serial .1,0, fp.leaderDA]; 

RETURN 

END; 

END. 



